home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
moonphas.tar
/
moon
next >
Wrap
Text File
|
1990-08-24
|
2KB
|
97 lines
%%HP: T(3)A(D)F(.);
DIR
MPHASE
\<< RCLF -31 SF
DEG ERASE { # 0d
# 0d } PVIEW {
# 64d # 28d } # 26d
0 360 ARC 26 28
MFRAC MPLOT MFINI 7
FREEZE STOF
\>>
MTIME
\<< MFRAC \-> X
\<<
IF X .25 <
THEN "NM+"
ELSE
IF X .5 <
THEN
"FQ+"
ELSE
IF X
.75 <
THEN
"FM+"
ELSE
"LQ+"
END
END
END X
\>> .25 MOD
42532 * SWAP OVER
1440 / IP \->STR +
"d " + SWAP 1440
MOD SWAP OVER 60 /
IP \->STR + "h " +
SWAP 60 MOD SWAP
OVER IP \->STR + "m "
+ SWAP FP 60 * IP
\->STR + "s" +
\>>
MFRAC
\<< 1.121975 DATE
DDAYS TIME 4.21
HMS- HMS\-> 24 / +
1440 * 42532 / FP
\>>
FLIP
\<< PICT RCL NEG
PICT STO
\>>
MPLOT
\<< \-> RA MI F
\<<
IF F .5 <
THEN F 360
* COS RA * RA
ELSE RA NEG
F .5 - 360 * COS RA
*
END \-> L R
\<< 1 0
FOR x x
ACOS SIN DUP MI x
RA * + L R MLINE MI
x RA * - L R MLINE
RA INV NEG
STEP
\>>
\>>
\>>
MLINE
\<< \-> SC LI L R
\<< SC L * 64 +
R\->B LI R\->B 2 \->LIST
SC R * 64 + R\->B LI
R\->B 2 \->LIST LINE
\>>
\>>
MFINI
\<< { # 10d # 10d
} PIXON { # 110d
# 15d } PIXON {
# 100d # 50d }
PIXON { # 30d # 41d
} PIXON { # 31d
# 41d } PIXON FLIP
\>>
SLOFLIP
\<< 0 63
FOR l # 0d l
R\->B 2 \->LIST # 130d
l R\->B 2 \->LIST TLINE
NEXT
\>>
END